Otherware/Otherware_1_SB_Development.iso/mac/hypercar/mactool/eventest.cpt/Apple® Event Tester v 1.0/stack.txt

Text File | 1992-10-02 | 6.1 KB | 227 lines

-- stack: in.0
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=16, y1=43, x2=528, y2=385)
-- screen: Rect(x1=0, y1=0, x2=1152, y2=882)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2582
-- card count: 1
-- first card id: 2910
-- list block id: 2169
-- print block id: 0
-- font table block id: 3410
-- style table block id: 3095
-- free block count: 5
-- free size: 39680 bytes
-- total size: 57344 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x02108000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDC919C69
----- HyperTalk script -----
on mouseWithin
  get word 1 to 2 of the target&&number of the target
  FullBalloons "IsShowing"
  if not the Result and it Γëá the selectedField then send mouseEnter to the target
end mouseWithin

function AESendMode
put 0 into sMode
repeat with i = 1 to the paramCount
  put param(i) into thisParam
  if thisParam = "noReply" then
    add 1 to sMode
  else if thisParam = "waitReply" then
    add 3 to sMode
  else if thisParam = "NeverInteract" then
    add 16 to sMode
  else if thisParam = "CanInteract" then
    add 32 to sMode
  else if thisParam = "AlwaysInteract" then
    add 48 to sMode
  end if
  -- not done yet, need to add more constants
end repeat
return sMode
end AESendMode

function exmn
return "æexmnæ0"
end exmn

function NullDesc
return "ænullæ0"
end nullDesc

function AEChunk objectName, form, data
put the paramCount into n
if n > 3 then
  put objectName & Object & "(form, data" into stmt
  put ")" into ending
  put 4 into i
  repeat while n >= i
    put "," & param(i) & "Object(" & param(i+1) & ",param(" & i+2 & ")" after stmt
    put ")" after ending
    add 3 to i
  end repeat
  put ending after stmt
else
  put objectName & Object & "(form, data)" into stmt
end if
return value of stmt
end AEChunk

function AEPropertyOfChunk property, objectName, form, data
put the paramCount into n
if n > 4 then
  put objectName & "Property" & "(property, form, data" into stmt
  put ")" into ending
  put 5 into i
  repeat while n >= i
    put "," & param(i) & "Object(" & param(i+1) & ",param(" & i+2 & ")" after stmt
    put ")" after ending
    add 3 to i
  end repeat
  put ending after stmt
else
  put objectName & "Property" & "(property, form, data)" into stmt
end if
return value of stmt
end AEPropertyOfChunk

function AEAndTest
put the params into x
put offset("(", x) into n
put "AELogicSpec(" & quote & "AND " & quote & "," into char 1 to n of x
return value(x)
end AEAndTest

function AEAndTest
put the params into x
put offset("(", x) into n
put "AELogicSpec(" & quote & "OR  " & quote & "," into char 1 to n of x
return value(x)
end AEAndTest

function AENotTest
put the params into x
put offset("(", x) into n
put "AELogicSpec.(" & quote & "NOT " & quote & "," into char 1 to n of x
return value(x)
end AENotTest

on AEHandleError errorString
  answer errorString with debug or continue or cancel
  if it is cancel then
    exit to hypercard
  else if it is debug then
    debug checkpoint
  end if
end AEHandleError

on AEFreeUnusedDesc
  global createdDesc
  put number of items in createdDesc into n
  repeat n times
    AEDisposeDesc item 1 of createdDesc
  end repeat
end AEFreeUnusedDesc

on AEStartTargeting appName,launching
  global curTargetApp
  put AEKeepDesc(AECreateDesc("targ","targ",appName)) into x
  if (char 1 to 6 of x = "ÆnullÆ") or (char 1 to 6 of x = "ÆerroÆ") then
    if (launching = "") or (launching = "true") then
      open appName
      put AEKeepDesc(AECreateDesc("targ","targ",appName)) into x
    end if
    if (char 1 to 6 of x = "ÆnullÆ") or (char 1 to 6 of x = "ÆerroÆ") then put appName into x
  end if
  put x & return before curTargetApp
end AEStartTargeting

on AEStopTargeting
  global curTargetApp
  put line 1 of curTargetApp into x
  delete line 1 of curTargetApp
  AEDisposeDesc(x)
end AEStopTargeting

on MakeSureLaunched appName
  if appName is not in the programs then
    open appName
  end if
end MakeSureLaunched

function AELongType data
return AECreateDesc("long","long",data)
end AELongType

function AEShortType data
return AECreateDesc("shor","shor",data)
end AEShortType

function AEBooleanType data
return AECreateDesc("bool","bool",data)
end AEBooleanType

function AEPointType hPos, vPos
return AECreateDesc("QDpt","QDpt",hPos & "," & vPos)
end AEPointType

function AERectangleType left,top,right,bottom
return AECreateDesc("qdrt","qdrt",left & "," & top & "," & right & "," & bottom)
end AERectangleType

function AEExtendedType data
return AECreateDesc("exte","exte",data)
end AEExtendedType